10 POKE53280,.:POKE53281,.
15 PRINT"[147][154]             [158]LOADER MAKER"
20 PRINT"             BY KEN BUNZEL"
25 PRINT"  [154]PLACE A DISK IN THE DRIVE AND PRESS"
30 PRINT"  SPACE[154] TO READ THE DIRECTORY."
40 PRINT"  THEN YOUR LOADER PROGRAM FOR THE"
50 PRINT"  DISK WILL BE CREATED."
55 PRINT"OR, PRESS RETURN[154] TO RETURN TO LOADSTAR"
60 GETA$:IFA$=CHR$(13)THEN60030
70 IFA$=" "THEN80
75 GOTO60
80 PRINT"[147]NUMBER OF PROGRAMS:":PRINT"READING DIRECTORY..."
85 DIMPR$(144),LE(144):OPEN1,8,0,"$0"
90 GET#1,A$,A$,A$,B$:LE(L)=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0))
100 GET#1,B$:IFST<>0THEN200
110 IFB$<>CHR$(34)THEN100
120 C$=""
130 GET#1,B$:IFB$<>CHR$(34)THENC$=C$+B$:GOTO130
140 PR$(L)=C$
150 GET#1,B$:IFB$=CHR$(32)THEN150
160 C$=""
170 C$=C$+B$:GET#1,B$:IFB$<>""THEN170
180 IFLEFT$(C$,3)="PRG"THENL=L+1:PRINT""TAB(19)L
190 IFST=0THEN90
200 CLOSE1:L=L-1
210 IFL=-1THENPRINT"[147]         NO PROGRAMS ON DISK":FORA=1TO2000:NEXT:GOTO10
220 PRINT"         SETTING UP FILES..."
225 AD=49152:FORA=0TOL:FORB=1TOLEN(PR$(A))
230 POKEAD+B,ASC(MID$(PR$(A),B,1)):NEXTB
240 POKEAD+B,13:POKEAD+B+1,LE(A):AD=AD+20:NEXTA
250 AD=49152:A=0
260 IFA>LTHEN330
270 A$="":B=1
280 IFPEEK(AD+B)=13THEN300
290 A$=A$+CHR$(PEEK(AD+B)):B=B+1:GOTO280
300 LE=PEEK(AD+B+1):PRINT"[147][144]"A+1000" DATA "A$","MID$(STR$(LE),2)
310 PRINT"A="A+1":AD="AD+20":L="L":GOTO260"
315 PRINT"    PLEASE WAIT -- ALTERING PROGRAM[144]"
320 POKE198,2:POKE631,13:POKE632,13:PRINT"":END
330 A=10
340 IFA=340THEN370
350 PRINT"[147][144]"A:PRINT"A="A+5":L="L":GOTO340"
355 PRINT"    PLEASE WAIT -- ALTERING PROGRAM[144]"
360 POKE198,2:POKE631,13:POKE632,13:PRINT"":END
370 PRINT"[147][144] 400 L="L
380 FORA=340TO390STEP10:PRINTA:NEXT:PRINT"RUN"
400 POKE198,8:FORA=631TO638:POKEA,13:NEXT:PRINT"":END
401 PRINT"[147]355":PRINT"401":PRINT"402":PRINT"RUN"
402 POKE198,4:FORA=1TO4:POKE630+A,13:NEXT:END
405 GOTO50000
410 DIMPR$(144),LE(144)
415 POKE53280,.:POKE53281,.
420 FORB=830TO874:READC:POKEB,C:NEXT
430 FORA=0TOL:READPR$(A),LE(A):NEXT
440 PRINT"[147][154]";:FORB=0TO23:IFB>LTHEN460
450 PRINTTAB(9)LE(B)TAB(14)PR$(B):NEXT
460 CH=0:RE=18:CO=5:PRINT""
470 PRINT"[145]"TAB(10)"                     [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
480 PRINTCHR$(RE)CHR$(CO)MID$(STR$(LE(CH)),2)TAB(14)PR$(CH)
490 FORA=1TO40:GETA$:IFA$=CHR$(17)ORA$=CHR$(13)ORA$=CHR$(145)THEN530
500 NEXTA
510 IFRE=18THENRE=146:CO=154:GOTO470
520 IFRE=146THENRE=18:CO=5:GOTO470
530 RE=18:CO=5
540 IFA$=CHR$(13)THEN660
550 PRINT"[145][154]"TAB(9)LE(CH)TAB(14)PR$(CH)
560 IFA$=CHR$(17)THEN630
570 CH=CH-1:IFCH<>-1THEN610
580 CH=L
590 IFL<24THENFORB=1TOL:PRINT:NEXT:GOTO470
600 PRINT"[147]";:FORB=CH-23TOCH:PRINTTAB(9)LE(B)TAB(14)PR$(B):NEXT:GOTO470
610 IFPEEK(214)=1THENSYS830
620 PRINT"[145][145]":GOTO470
630 CH=CH+1:IFCH<=LTHENPRINT:GOTO470
640 CH=0:IFL<24THENPRINT"":GOTO470
650 GOTO440
660 PRINT"[147][146]LOAD"CHR$(34)PR$(CH)CHR$(34)",8,1"
670 POKE198,5:POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13
680 PRINT"":END
690 DATA162,240,189,167,6,157
700 DATA207,6,202,208,247,162
710 DATA240,189,183,5,157,223
720 DATA5,202,208,247,162,240
730 DATA189,199,4,157,239,4
740 DATA202,208,247,162,200,189
750 DATA255,3,157,39,4,202
760 DATA208,247,96
50000 POKE53280,.:POKE53281,.
50010 PRINT"[147]               [158]LOADER MAKER"
50020 PRINT"               BY KEN BUNZEL"
50030 PRINT"        S [154]- SAVE THIS MENU"
50040 PRINT"        C [154]- CREATE ANOTHER MENU"
50050 PRINT"        Q [154]- QUIT"
50060 PRINT"        PRESS S[154], C[154], OR Q[154].":POKE198,.
50070 A=PEEK(203):IFA<>13ANDA<>20ANDA<>62THEN50070
50080 IFA=62THENGOSUB60000:GOTO50060
50085 IFA=13THEN50100
50090 IFA=20THEN50200
50100 PRINT"ENTER FILENAME:";
50110 GOSUB60500:IFB$=""THEN50000
50120 PRINT"[147]       SAVING "B$" TO DISK..."
50130 PRINT"[144]405"
50140 PRINT"SAVE"CHR$(34)B$CHR$(34)",8"
50150 PRINT"405 GOTO50000"
50160 PRINT"RUN"
50170 POKE198,4:FORA=1TO4:POKE630+A,13:NEXT:END
50200 OPEN15,8,15,"R0:LOADER MAKER=LOADER MAKER":INPUT#15,ER:CLOSE15
50210 IFER=63THEN50240
50220 PRINT"         [150]LOADER MAKER NOT FOUND!"
50230 FORA=1TO2000:NEXT:GOTO50000
50240 PRINT"[147]     LOADING LOADER MAKER...[144]"
50245 PRINT"LOAD"CHR$(34)"LOADER MAKER"CHR$(34)",8"
50250 PRINT"RUN":POKE198,2:POKE631,13:POKE632,13:END
60000 PRINT"[145]  ARE YOU SURE YOU WANT TO QUIT? (Y[154]/N[154])"
60010 A=PEEK(203):IFA<>25ANDA<>39THEN60010
60020 IFA=39THENPRINT"[145]                                      [145]":RETURN
60030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60040 IFER<>63THENEND
60050 LOAD"HELLO CONNECT",8
60500 B$="":PRINT"[164]";:POKE198,.:FORA=1TO17
60510 GETA$:IFA$=""THEN60510
60520 IFA$=CHR$(13)THENPRINT"[157] ":RETURN
60530 IFA$=CHR$(20)ANDA>1THENPRINT"[157][157]  [157][157][164]";:A=A-1:B$=LEFT$(B$,A-1):GOTO60510
60535 IFA=17THEN60510
60540 IFA$>=" "ANDA$<="Z"THEN60570
60550 IFA$>="[193]"ANDA$<="[218]"THEN60570
60560 GOTO60510
60570 PRINT"[157]"A$;:POKE212,.:PRINT"[164]";:B$=B$+A$:NEXT